home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-plant.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  348 b   |  16 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 5       # recursion depth
  3. 18      # angle
  4. 50      # thickness as % of length
  5. #
  6. c(12)p
  7. #
  8. p=i++[p+o]--->>[--l]i[++l]--[po]+++po
  9. i=Fs[>>&&l][>>^^l]Fs
  10. s=sFs
  11. l=[c(8){++f--ff--f++|++f--ff--f}]
  12. o=[&!c(12)e>w>>>>w>>>>w>>>>w>>>>w]
  13. e=FF
  14. w=[c(3)^!F][c(5)&&&&{---f+++f|---f+++f}]
  15. @
  16.